subroutine put_t(t1, t2, icore)
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
implicit none 
real*8, intent(in) :: t1(*), t2(*), icore(*)

if(prec==8) then 
  call put_td(t1, t2, icore) 
elseif(prec==4) then 
  call put_ts(t1, t2, icore)
endif
return
end 

subroutine put_td(t1, t2, icore)
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
implicit none 
real*4, intent(in) :: t1(*), t2(*), icore(*)
call clmoioso0(1, icore, vrta, popa, 1, zorb, zorb, 1, 'T1AA____')
call clmoioso0(1, icore, vrtb, popb, 1, zorb, zorb, 1, 'T1BB____')
call clmoioso0(1, icore, vrta, vrta, 0, popa, popa, 0, 'T2AA____')
call clmoioso0(1, icore, vrta, vrtb, 1, popa, popb, 1, 'T2AB____')
call clmoioso0(1, icore, vrtb, vrtb, 0, popb, popb, 0, 'T2BB____')

call putallso(t1(ifvo(1)), 1, 'T1AA____')
call putallso(t1(ifvo(2)), 1, 'T1BB____')
call putallso(t2(ioi3(1)), 1, 'T2AA____')
call putallso(t2(ioi3(2)), 1, 'T2AB____')
call putallso(t2(ioi3(3)), 1, 'T2BB____')

return
end

subroutine put_ts(t1, t2, icore)
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
implicit none 
real*4, intent(in) :: t1(*), t2(*), icore(*)
call clmoioso0_s(1, icore, vrta, popa, 1, zorb, zorb, 1, 'T1AAS___')
call clmoioso0_s(1, icore, vrtb, popb, 1, zorb, zorb, 1, 'T1BBS___')
call clmoioso0_s(1, icore, vrta, vrta, 0, popa, popa, 0, 'T2AAS___')
call clmoioso0_s(1, icore, vrta, vrtb, 1, popa, popb, 1, 'T2ABS___')
call clmoioso0_s(1, icore, vrtb, vrtb, 0, popb, popb, 0, 'T2BBS___')

call putallso_s(t1(ifvo(1)), 1, 'T1AAS___')
call putallso_s(t1(ifvo(2)), 1, 'T1BBS___')
call putallso_s(t2(ioi3(1)), 1, 'T2AAS___')
call putallso_s(t2(ioi3(2)), 1, 'T2ABS___')
call putallso_s(t2(ioi3(3)), 1, 'T2BBS___')

return
end
